home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Softdisk Supreme
/
Softdisk Supreme.iso
/
pc
/
DSK Files
/
0-49
/
SD006a.dsk
/
POP.QUIZ.bas
< prev
next >
Wrap
BASIC Source File
|
2003-06-12
|
10KB
|
256 lines
10 REM POP.QUIZ
20 TEXT
30 DIM AB$(29),A$(29)
35 FOR I = 1 TO 29:A$(I) = "B": NEXT
40 A$(6) = "A":A$(7) = "A":A$(9) = "A":A$(16) = "A":A$(17) = "A":A$(20) = "A":A$(21) = "A":A$(23) = "A":A$(25) = "A":A$(29) = "A":A$(2) = "A":A$(18) = "A"
45 A$(1) = "C":A$(8) = "C":A$(14) = "C":A$(19) = "C":A$(24) = "C":A$(27) = "C"
50 I = 0
900 HOME : VTAB 10: HTAB 8: PRINT "THIS TEST ORIGINATED WITH"
910 PRINT : HTAB 14: PRINT "JULIAN ROTTER": PRINT : HTAB 8: PRINT "UNIVERSITY OF CONNECTICUT"
920 VTAB 18: HTAB 14: INVERSE : PRINT "HIT RETURN";: NORMAL : INPUT " ";R$
1000 HOME : VTAB 2: HTAB 12: PRINT "POP QUIZ": VTAB 5
1010 PRINT "EACH OF THE FOLLOWING ITEMS CONSISTS"
1020 PRINT "OF A PAIR OF ALTERNATIVES LETTERED"
1030 PRINT "'A' OR 'B'.
1040 PRINT : PRINT "PLEASE SELECT THE ONE STATEMENT OF"
1050 PRINT "EACH PAIR WHICH YOU MORE STRONGLY"
1060 PRINT "BELIEVE TO BE THE CASE AS FAR AS"
1070 PRINT "YOU'RE CONCERNED."
1080 PRINT : PRINT "BE SURE TO SELECT THE ONE YOU ACTUALLY"
1090 PRINT "BELIEVE TO BE MORE TRUE, RATHER THAN"
1100 PRINT "THE ONE YOU THINK YOU SHOULD CHOOSE,"
1110 PRINT "OR THE ONE YOU WOULD LIKE TO BE TRUE."
1120 PRINT : PRINT "THIS IS A MEASURE OF PERSONAL BELIEF."
1130 PRINT : PRINT "THERE ARE NO WRONG OR RIGHT ANSWERS."
1140 PRINT : HTAB 14: INVERSE : PRINT "HIT RETURN";: NORMAL : INPUT " ";R$
2000 GOSUB 8000
2010 PRINT "CHILDREN GET INTO TROUBLE BECAUSE"
2020 PRINT " THEIR PARENTS PUNISH THEM TOO MUCH."
2030 GOSUB 8100
2040 PRINT "THE TROUBLE WITH MOST CHILDREN"
2050 PRINT " NOWADAYS IS THAT THEIR PARENTS ARE"
2060 PRINT " TOO EASY WITH THEM."
2070 GOSUB 8200
2090 PRINT "MANY OF THE UNHAPPY THINGS IN"
2100 PRINT " PEOPLE'S LIVES ARE DUE TO BAD LUCK."
2110 GOSUB 8100
2120 PRINT "PEOPLE'S MISFORTUNES RESULT FROM THE"
2130 PRINT " MISTAKES THEY MAKE."
2140 GOSUB 8200
2160 PRINT "ONE OF THE MAJOR REASONS WHY WE HAVE"
2170 PRINT " WARS IS BECAUSE PEOPLE DON'T TAKE"
2180 PRINT " ENOUGH INTEREST IN POLITICS."
2190 GOSUB 8100
2200 PRINT "THERE WILL ALWAYS BE WARS, NO MATTER"
2210 PRINT " HOW HARD PEOPLE TRY TO PREVENT ONE."
2220 GOSUB 8200
2240 PRINT "IN THE LONG RUN, PEOPLE GET THE"
2250 PRINT " RESPECT THEY DESERVE IN THIS WORLD."
2260 GOSUB 8100
2270 PRINT "UNFORTUNATELY, AN INDIVIDUAL'S WORTH"
2280 PRINT " OFTEN PASSES UNRECOGNIZED, NO MATTER"
2290 PRINT " HOW HARD HE TRIES."
2300 GOSUB 8200
2320 PRINT "THE IDEA THAT TEACHERS ARE UNFAIR TO"
2330 PRINT " STUDENTS IS NONSENSE."
2340 GOSUB 8100
2350 PRINT "MOST STUDENT'S DON'T REALIZE THE"
2360 PRINT " EXTENT TO WHICH THEIR GRADES ARE"
2370 PRINT " INFLUENCED BY ACCIDENTAL HAPPENINGS."
2380 GOSUB 8200
2400 PRINT "WITHOUT THE RIGHT BREAKS, ONE CANNOT"
2410 PRINT " BE AN EFFECTIVE LEADER."
2415 GOSUB 8100
2420 PRINT "CAPABLE PEOPLE WHO FAIL TO BECOME"
2430 PRINT " LEADERS HAVE NOT TAKEN ADVANTAGE OF"
2440 PRINT " THEIR OPPORTUNITIES."
2450 GOSUB 8200
2470 PRINT "NO MATTER HOW HARD YOU TRY, SOME"
2480 PRINT " PEOPLE JUST DON'T LIKE YOU."
2490 GOSUB 8100
2500 PRINT "PEOPLE WHO CAN'T GET OTHERS TO LIKE"
2510 PRINT " THEM DON'T UNDERSTAND HOW TO GET"
2520 PRINT " ALONG WITH OTHERS."
2530 GOSUB 8200
2550 PRINT "HEREDITY PLAYS THE MAJOR ROLE IN"
2560 PRINT " DETERMINING ONE'S PERSONALITY."
2570 GOSUB 8100
2580 PRINT "IT IS ONE'S EXPERIENCES IN LIFE"
2590 PRINT " WHICH DETERMINE WHAT THEY'RE LIKE."
2600 GOSUB 8200
2620 PRINT "I HAVE OFTEN FOUND THAT WHAT IS"
2630 PRINT " GOING TO HAPPEN WILL HAPPEN."
2640 GOSUB 8100
2650 PRINT "TRUSTING TO FATE HAS NEVER TURNED"
2660 PRINT " OUT AS WELL FOR ME AS MAKING A"
2670 PRINT " DECISION TO TAKE A DEFINITE COURSE"
2680 PRINT " OF ACTION."
2690 GOSUB 8200
2700 PRINT "IN THE CASE OF THE WELL-PREPARED"
2710 PRINT " STUDENT, THERE IS RARELY, IF EVER,"
2720 PRINT " SUCH A THING AS AN UNFAIR TEST."
2730 GOSUB 8100
2740 PRINT "MANY TIMES, EXAM QUESTIONS TEND TO"
2750 PRINT " BE SO UNREALTED TO COURSE WORK THAT"
2760 PRINT " STUDYING IS REALLY USELESS."
2780 GOSUB 8200
2790 PRINT "BECOMING A SUCCESS IS A MATTER OF"
2800 PRINT " HARD WORK, LUCK HAS LITTLE OR"
2805 PRINT " NOTHING TO DO WITH IT."
2810 GOSUB 8100
2820 PRINT "GETTING A GOOD JOB DEPENDS MAINLY ON"
2830 PRINT " BEING IN THE RIGHT PLACE AT THE"
2840 PRINT " RIGHT TIME."
2850 GOSUB 8200
2860 PRINT "THE AVERAGE CITIZEN CAN HAVE AN"
2870 PRINT " INFLUENCE IN GOVERNMENT DECISIONS."
2880 GOSUB 8100
2890 PRINT "THIS WORLD IS RUN BY THE FEW PEOPLE"
2900 PRINT " IN POWER, AND THERE IS NOT MUCH THE"
2910 PRINT " LITTLE GUY CAN DO ABOUT IT."
2920 GOSUB 8200
2930 PRINT "WHEN I MAKE PLANS, I AM ALMOST"
2940 PRINT " CERTAIN THAT I CAN MAKE THEM WORK."
2950 GOSUB 8100
2960 PRINT "IT IS NOT ALWAYS WISE TO PLAN TOO"
2970 PRINT " FAR AHEAD, BECAUSE MANY THINGS TURN"
2980 PRINT " OUT TO BE A MATTER OF GOOD OR BAD"
2990 PRINT " FORTUNE ANYHOW."
3000 GOSUB 8200
3010 PRINT "THERE ARE CERTAIN PEOPLE WHO ARE"
3020 PRINT " JUST NO GOOD."
3030 GOSUB 8100
3040 PRINT "THERE IS SOME GOOD IN EVERYBODY."
3050 GOSUB 8200
3060 PRINT "IN MY CASE, GETTING WHAT I WANT HAS"
3070 PRINT " LITTLE OR NOTHING TO DO WITH LUCK."
3080 GOSUB 8100
3090 PRINT "MANY TIMES, WE MIGHT JUST AS WELL"
3100 PRINT " DECIDE WHAT TO DO BY FLIPPING A"
3110 PRINT " COIN."
3120 GOSUB 8200
3130 PRINT "WHO GETS TO BE THE BOSS OFTEN"
3140 PRINT " DEPENDS ON WHO WAS LUCKY ENOUGH TO"
3150 PRINT " BE IN THE RIGHT PLACE FIRST."
3160 GOSUB 8100
3170 PRINT "GETTING PEOPLE TO DO THE RIGHT THING"
3180 PRINT " DEPENDS UPON ABILITY; LUCK HAS"
3190 PRINT " LITTLE OR NOTHING TO DO WITH IT."
3200 GOSUB 8200
3210 PRINT "AS FAR AS WORLD AFFAIRS ARE"
3220 PRINT " CONCERNED, MOST OF US ARE THE"
3230 PRINT " VICTIMS OF FORCES WE CAN NEITHER"
3240 PRINT " UNDERSTAND, NOR CONTROL."
3250 GOSUB 8100
3260 PRINT "BY TAKING AN ACTIVE PART IN"
3270 PRINT " POLITICAL AND SOCIAL AFFAIRS, THE"
3280 PRINT " PEOPLE CAN CONTROL WORLD EVENTS."
3290 GOSUB 8200
3300 PRINT "MOST PEOPLE DON'T REALIZE THE EXTENT"
3310 PRINT " TO WHICH THEIR LIVES ARE CONTROLLED"
3320 PRINT " BY ACCIDENTAL HAPPENINGS."
3330 GOSUB 8100
3340 PRINT "THERE REALLY IS NO SUCH THING AS"
3350 PRINT " LUCK."
3360 GOSUB 8200
3370 PRINT "ONE SHOULD ALWAYS BE WILLING TO"
3380 PRINT " ADMIT MISTAKES."
3390 GOSUB 8100
3400 PRINT "IT IS USUALLY BEST TO COVER UP ONE'S"
3410 PRINT " MISTAKES."
3420 GOSUB 8200
3430 PRINT "IT IS HARD TO KNOW WHETHER OR NOT A"
3440 PRINT " PERSON REALLY LIKES YOU."
3450 GOSUB 8100
3460 PRINT "HOW MANY FRIENDS YOU HAVE DEPENDS"
3470 PRINT " UPON HOW NICE A PERSON YOU ARE."
3480 GOSUB 8200
3490 PRINT "IN THE LONG RUN, THE BAD THINGS THAT"
3500 PRINT " HAPPEN TO US ARE BALANCED BY THE"
3510 PRINT " GOOD ONES."
3520 GOSUB 8100
3530 PRINT "MOST MISFORTUNES ARE THE RESULT OF"
3540 PRINT " LACK OF ABILITY, IGNORANCE,"
3550 PRINT " LAZINESS, OR ALL THREE."
3560 GOSUB 8200
3570 PRINT "WITH ENOUGH EFFORT, WE CAN WIPE OUT"
3580 PRINT " POLITICAL CORRUPTION."
3590 GOSUB 8100
3600 PRINT "IT IS DIFFICULT FOR PEOPLE TO HAVE"
3610 PRINT " MUCH CONTROL OVER THE THINGS "
3620 PRINT " POLITICIANS DO IN OFFICE."
3630 GOSUB 8200
3640 PRINT "SOMETIMES I CAN'T UNDERSTAND HOW"
3650 PRINT " TEACHERS ARRIVE AT THE GRADES THEY"
3660 PRINT " GIVE."
3670 GOSUB 8100
3680 PRINT "THERE IS A DIRECT CONNECTION BETWEEN"
3690 PRINT " HOW HARD I STUDY AND THE GRADES I"
3700 PRINT " GET."
3710 GOSUB 8200
3720 PRINT "A GOOD LEADER EXPECTS PEOPLE TO "
3730 PRINT " DECIDE FOR THEMSELVES WHAT THEY"
3740 PRINT " SHOULD DO."
3750 GOSUB 8100
3760 PRINT "A GOOD LEADER MAKES IT CLEAR TO "
3770 PRINT " EVERYBODY WHAT THEIR JOBS ARE."
3780 GOSUB 8200
3790 PRINT "MANY TIMES I FEEL THAT I HAVE LITTLE"
3800 PRINT " INFLUENCE OVER THE THINGS THAT"
3810 PRINT " HAPPEN TO ME."
3820 GOSUB 8100
3830 PRINT "IT IS IMPOSSIBLE FOR ME TO BELIEVE"
3840 PRINT " THAT CHANCE OR LUCK PLAYS AN"
3850 PRINT " IMPORTANT ROLE IN MY LIFE."
3860 GOSUB 8200
3870 PRINT "PEOPLE ARE LONELY BECAUSE THEY DON'T"
3880 PRINT " TRY TO BE FRIENDLY."
3890 GOSUB 8100
3900 PRINT "THERE'S NOT MUCH USE IN TRYING TOO"
3910 PRINT " HARD TO PLEASE PEOPLE; IF THEY"
3920 PRINT " LIKE YOU, THEY LIKE YOU."
3930 GOSUB 8200
3940 PRINT "THERE IS TOO MUCH EMPHASIS ON"
3950 PRINT " ATHLETICS IN HIGH SCHOOL."
3960 GOSUB 8100
3970 PRINT "TEAM SPORTS ARE AN EXCELLENT WAY TO"
3980 PRINT " BUILD CHARACTER."
3990 GOSUB 8200
4000 PRINT "WHAT HAPPENS TO ME IS MY OWN DOING."
4010 GOSUB 8100
4020 PRINT "SOMETIMES I FEEL THAT I DON'T HAVE"
4030 PRINT " ENOUGH CONTROL OVER THE DIRECTION"
4040 PRINT " MY LIFE IS TAKING."
4050 GOSUB 8200
4060 PRINT "MOST OF THE TIME, I CAN'T UNDERSTAND"
4070 PRINT " WHY POLITICIANS BEHAVE THE WAY THEY"
4080 PRINT " DO."
4090 GOSUB 8100
4100 PRINT "IN THE LONG-RUN, THE PEOPLE ARE "
4110 PRINT " RESPONSIBLE FOR BAD GOVERNMENT ON A"
4120 PRINT " NATIONAL AS WELL AS ON A LOCAL"
4130 PRINT " LEVEL."
4140 GOSUB 8300
5000 EX = 23: FOR I = 1 TO 29: IF AB$(I) = A$(I) THEN EX = EX -1
5005 NEXT I
5010 HOME : PRINT "00";: HTAB 8: INVERSE : PRINT "EXTERNAL CONTROL": NORMAL
5020 PRINT "01": PRINT "02": PRINT "03": PRINT "04": PRINT "05"
5030 PRINT "06 DOES FATE CONTROL YOUR LIFE?"
5040 PRINT "07": PRINT "08 ARE YOU IN CHARGE?"
5050 PRINT "09": PRINT "10 THE ANSWERS ARE YES, YES."
5060 PRINT "11": PRINT "12 THERE IS NO RIGHT PLACE TO BE"
5070 PRINT "13": PRINT "14 ON THE INTERNAL-EXTERNAL SCALE."
5080 PRINT "15": PRINT "16 COMPARE YOUR SCORE WITH OTHERS."
5090 PRINT "17": PRINT "18": PRINT "19": PRINT "20": PRINT "21": PRINT "22"
5100 PRINT "23";: INVERSE : HTAB 8: PRINT "INTERNAL CONTROL";: NORMAL : HTAB 29: PRINT "HIT RETURN";
5105 VTAB EX +1: HTAB 3: FLASH : PRINT "<--";: NORMAL : INPUT "";R$
5107 HOME
5110 PRINT CHR$(4);"RUN KICK.IT.OFF"
5999 END
8000 HOME : VTAB 2: HTAB 12: PRINT "POP QUIZ": VTAB 6: PRINT "A. ";: RETURN
8100 VTAB 14: PRINT "B. ";: RETURN
8200 GOSUB 8300: GOSUB 8000: RETURN
8300 VTAB 22: CALL -868: PRINT "WHICH IS MORE TRUE (A OR B)? ";: GET R$: PRINT
8310 IF R$ < >"A" AND R$ < >"B" GOTO 8300
8315 I = I +1:AB$(I) = R$
8320 RETURN